(finder-list-keywords): Create *Finder* buffer if nec.

diff --git a/lisp/finder.el b/lisp/finder.el
index 799a681418c406c8a7d8599d94a96a95b6b7a5fc..13cedc683a5c9ee387567d4d8c22d2f0139ead48 100644 (file)
--- a/lisp/finder.el
+++ b/lisp/finder.el
@@ -174,7 +174,7 @@ arguments compiles from `load-path'."
   (interactive)
   (if (get-buffer "*Finder*")
       (pop-to-buffer "*Finder*")
-    (pop-to-buffer (set-buffer "*Finder*"))
+    (pop-to-buffer (set-buffer (get-buffer-create "*Finder*")))
     (finder-mode)
     (setq buffer-read-only nil)
     (erase-buffer)